home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fontsh13 / fs_grid.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-03-17  |  3.9 KB  |  133 lines
  1. VERSION 2.00
  2. Begin Form FS_GRID 
  3.    BackColor       =   &H0080FFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Font Grid"
  6.    ClientHeight    =   4005
  7.    ClientLeft      =   1410
  8.    ClientTop       =   2430
  9.    ClientWidth     =   8730
  10.    ForeColor       =   &H00000000&
  11.    Height          =   4410
  12.    KeyPreview      =   -1  'True
  13.    Left            =   1350
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   4005
  18.    ScaleWidth      =   8730
  19.    Top             =   2085
  20.    Width           =   8850
  21.    Begin SSPanel Panel3D1 
  22.       AutoSize        =   3  'AutoSize Child To Panel
  23.       BevelInner      =   1  'Inset
  24.       BorderWidth     =   2
  25.       Caption         =   "Panel3D1"
  26.       Height          =   852
  27.       Left            =   6840
  28.       Outline         =   -1  'True
  29.       TabIndex        =   6
  30.       Top             =   3000
  31.       Width           =   972
  32.       Begin TextBox TxtCurrChar 
  33.          Alignment       =   2  'Center
  34.          Height          =   705
  35.          Left            =   75
  36.          MultiLine       =   -1  'True
  37.          TabIndex        =   7
  38.          Text            =   "Text1"
  39.          Top             =   75
  40.          Width           =   825
  41.       End
  42.    End
  43.    Begin SSCheck ChkItalic 
  44.       Caption         =   "&Italic"
  45.       ForeColor       =   &H00C00000&
  46.       Height          =   192
  47.       Left            =   1440
  48.       TabIndex        =   2
  49.       Top             =   3600
  50.       Width           =   800
  51.    End
  52.    Begin SSFrame Frame3D1 
  53.       Caption         =   "Attributes"
  54.       ForeColor       =   &H00800000&
  55.       Height          =   735
  56.       Left            =   1320
  57.       ShadowStyle     =   1  'Raised
  58.       TabIndex        =   5
  59.       Top             =   3120
  60.       Width           =   1095
  61.       Begin SSCheck ChkBold 
  62.          Caption         =   "&Bold"
  63.          ForeColor       =   &H00C00000&
  64.          Height          =   192
  65.          Left            =   120
  66.          TabIndex        =   1
  67.          Top             =   240
  68.          Width           =   800
  69.       End
  70.    End
  71.    Begin SSCommand CmdClose 
  72.       Caption         =   "&Close"
  73.       ForeColor       =   &H00000080&
  74.       Height          =   492
  75.       Left            =   3720
  76.       TabIndex        =   3
  77.       Top             =   3360
  78.       Width           =   1332
  79.    End
  80.    Begin Grid Grid1 
  81.       BackColor       =   &H00FFFFFF&
  82.       Cols            =   32
  83.       FixedCols       =   0
  84.       FixedRows       =   0
  85.       ForeColor       =   &H00000000&
  86.       Height          =   2500
  87.       HighLight       =   0   'False
  88.       Left            =   120
  89.       Rows            =   7
  90.       ScrollBars      =   0  'None
  91.       TabIndex        =   0
  92.       Top             =   120
  93.       Width           =   8496
  94.    End
  95.    Begin Label Label1 
  96.       AutoSize        =   -1  'True
  97.       BackColor       =   &H0080FFFF&
  98.       Caption         =   "Current character:"
  99.       Height          =   192
  100.       Left            =   6480
  101.       TabIndex        =   4
  102.       Top             =   2760
  103.       Width           =   1476
  104.    End
  105. Sub ChkBold_Click (Value As Integer)
  106.     FS_Grid.Grid1.FontBold = ChkBold
  107.     FS_Grid.TxtCurrChar.FontBold = ChkBold
  108. End Sub
  109. Sub ChkItalic_Click (Value As Integer)
  110.     FS_Grid.Grid1.FontItalic = ChkItalic
  111.     FS_Grid.TxtCurrChar.FontItalic = ChkItalic
  112. End Sub
  113. Sub CmdClose_Click ()
  114.     FS_Grid.Hide
  115. End Sub
  116. Sub Command3D1_Click ()
  117.     FS_Grid.Hide
  118. End Sub
  119. Sub Form_KeyPress (keyascii As Integer)
  120.     If keyascii = 27 Then FS_Grid.Hide
  121. End Sub
  122. Sub Form_Load ()
  123.     Top = 900
  124.     Left = (Screen.Width - Width) / 2
  125. End Sub
  126. Sub Grid1_RowColChange ()
  127.     If Len(Grid1) > 0 Then
  128.         a% = Asc(Grid1)
  129.         Label1 = "Current character: " + LTrim$(Str$(a%)) + IIf(a% >= 33 And a% <= 126, "  " + Chr$(a%), "")
  130.         FS_Grid.TxtCurrChar = Grid1
  131.     End If
  132. End Sub
  133.